Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_bas/t2win_32.zip/_DMLANG.FRM

Text File | 1996-05-14 | 12KB | 530 lines

VERSION 4.00
Begin VB.Form frmDayMonth
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Days and months in different language"
   ClientHeight    =   4065
   ClientLeft      =   1890
   ClientTop       =   3255
   ClientWidth     =   8130
   Height          =   4470
   Left            =   1830
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4065
   ScaleWidth      =   8130
   ShowInTaskbar   =   0   'False
   Top             =   2910
   Width           =   8250
   Begin Threed.SSPanel SSPanel1
      Align           =   1  'Align Top
      Height          =   480
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   8130
      _Version        =   65536
      _ExtentX        =   14340
      _ExtentY        =   847
      _StockProps     =   15
      ForeColor       =   -2147483640
      BackColor       =   12632256
      Begin VB.ComboBox cmb_Function
         Height          =   315
         Left            =   1365
         TabIndex        =   2
         Top             =   90
         Width           =   5415
      End
      Begin Threed.SSCommand cmdNP
         Height          =   300
         Index           =   1
         Left            =   7770
         TabIndex        =   6
         Top             =   90
         Width           =   255
         _Version        =   65536
         _ExtentX        =   450
         _ExtentY        =   529
         _StockProps     =   78
         Caption         =   ">"
         BevelWidth      =   1
         Font3D          =   3
         RoundedCorners  =   0   'False
         Outline         =   0   'False
      End
      Begin Threed.SSCommand cmdNP
         Height          =   300
         Index           =   0
         Left            =   6930
         TabIndex        =   5
         Top             =   90
         Width           =   255
         _Version        =   65536
         _ExtentX        =   450
         _ExtentY        =   529
         _StockProps     =   78
         Caption         =   "<"
         BevelWidth      =   1
         Font3D          =   3
         RoundedCorners  =   0   'False
         Outline         =   0   'False
      End
      Begin VB.Label Label2
         Caption         =   "&Select a function"
         Height          =   255
         Left            =   90
         TabIndex        =   4
         Top             =   120
         Width           =   1275
      End
      Begin Threed.SSCommand SSCommand1
         Default         =   -1  'True
         Height          =   300
         Left            =   7245
         TabIndex        =   3
         Top             =   90
         Width           =   465
         _Version        =   65536
         _ExtentX        =   820
         _ExtentY        =   529
         _StockProps     =   78
         Caption         =   "&Go"
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
      End
   End
   Begin VB.Label lbl_Result
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H80000008&
      Height          =   3345
      Left            =   90
      TabIndex        =   0
      Top             =   630
      Width           =   7935
   End
End
Attribute VB_Name = "frmDayMonth"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Option Base 1

Private Const Iteration = 250

Dim IsLoaded         As Integer

Dim TimerStartOk     As Integer
Dim TimerCloseOk     As Integer

Dim TimerHandle      As Integer
Dim TimerValue       As Long

Dim Language(LNG_FRENCH To LNG_POLISH) As String


Private Sub cmdNP_Click(Index As Integer)

   Call sub_NextPrev(cmb_Function, Index)

End Sub


Private Sub cmb_Function_Click()

   If (IsLoaded = False) Then Exit Sub

   Call cDisableFI(mdiT2W.Picture1)

   lbl_Result = ""

   DoEvents

   Select Case cmb_Function.ListIndex
      Case 0
         Call TestAscTime
      Case 1
         Call TestTinyDay
      Case 2
         Call TestSmallDay
      Case 3
         Call TestShortDay
      Case 4
         Call TestLongDay
      Case 5
         Call TestTinyMonth
      Case 6
         Call TestShortMonth
      Case 7
         Call TestLongMonth
   End Select

   DoEvents
   Call cEnableFI(mdiT2W.Picture1)

End Sub


Private Sub Form_Activate()

   mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)

End Sub

Private Sub Form_Load()

   IsLoaded = False

   Show

   Call FillLanguage(Language())

   Call sub_Load_Combo(cmb_Function, T2WDirInst + "_dmlang.t2w")

   IsLoaded = True

End Sub

Private Sub SSCommand1_Click()

   Call cmb_Function_Click

End Sub




Private Sub TestAscTime()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i) + cGetAscTime(i) + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetAscTime(LNG_FRENCH)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub













Private Sub TestTinyDay()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 7
         strDisplay = strDisplay + cGetTinyDay(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetTinyDay(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Private Sub FillLanguage(arrLanguage() As String)

   arrLanguage(LNG_FRENCH) = "French : "
   arrLanguage(LNG_DUTCH) = "Dutch : "
   arrLanguage(LNG_GERMAN) = "German : "
   arrLanguage(LNG_ENGLISH) = "English : "
   arrLanguage(LNG_ITALIAN) = "Italian : "
   arrLanguage(LNG_SPANISH) = "Spanish : "
   arrLanguage(LNG_CATALAN) = "Catalan : "
   arrLanguage(LNG_POLISH) = "Polish : "

End Sub

Private Sub TestSmallDay()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 7
         strDisplay = strDisplay + cGetSmallDay(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetSmallDay(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Private Sub TestLongDay()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 7
         strDisplay = strDisplay + cGetLongDay(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetLongDay(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Private Sub TestShortDay()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 7
         strDisplay = strDisplay + cGetShortDay(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetShortDay(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Private Sub TestTinyMonth()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 12
         strDisplay = strDisplay + cGetTinyMonth(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetTinyMonth(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Public Sub TestLongMonth()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 12
         strDisplay = strDisplay + cGetLongMonth(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetLongMonth(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub

Private Sub TestShortMonth()

   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String

   Dim i                As Integer
   Dim j                As Integer

   intResult = 0

   strResult = ""
   strDisplay = ""

   For i = LNG_FRENCH To LNG_POLISH
      strDisplay = strDisplay + Language(i)
      For j = 1 To 12
         strDisplay = strDisplay + cGetShortMonth(i, j) + " "
      Next j
      strDisplay = strDisplay + vbCrLf + vbCrLf
   Next i

   lbl_Result = strDisplay

   'time the function

   TimerHandle = cTimerOpen()
   TimerStartOk = cTimerStart(TimerHandle)

   For i = 1 To Iteration
      strResult = cGetShortMonth(LNG_FRENCH, 1)
   Next i

   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)

   TimerCloseOk = cTimerClose(TimerHandle)

End Sub